home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD024b.dsk / IT'S A SMALL WORLD.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  43 lines
  1. 0  DIM W$(111,1):D$ =  CHR$(13) + CHR$(4)
  2. 1  DIM CH(15)
  3. 10  HGR : TEXT : HOME : SPEED= 255: NORMAL 
  4. 20  IF  PEEK( -637) = 255  OR  PEEK( -637) = 234  THEN A$ = "L": GOTO 50
  5. 30  PRINT "DO YOU HAVE LOWER CASE ?";: GET A$: IF A$ = "Y"  THEN A$ = "L": GOTO 50
  6. 40 A$ = "A"
  7. 50  HOME 
  8. 60  IF A$ = "A"  THEN  GOTO 110
  9. 70  PRINT "Do you have an amplifier hooked up to   the cassette port on your computer ?";: GET B$
  10. 80  HOME : PRINT "Please wait while loading & initializing"
  11. 100  GOTO 140
  12. 110  PRINT "DO YOU HAVE AN AMPLIFIER HOOKED UP TO   THE CASSETTE PORT ON YOUR COMPUTER ?";: GET B$
  13. 120  HOME : PRINT "PLEASE WAIT WHILE LOADING & INITIALIZING"
  14. 140  PRINT D$;"OPEN DOUBLETALK"
  15. 150  PRINT D$;"READ DOUBLETALK"
  16. 160  FOR I = 1 TO 110
  17. 170  INPUT W$(I,0),W$(I,1)
  18. 180  NEXT 
  19. 183  PRINT D$;"CLOSE"
  20. 185  IF B$ = "Y"  THEN  PRINT D$;"BRUN SMALL WORLD.MODULE":C: GOTO 190
  21. 187  PRINT D$;"BRUN SMALL WORLD.MODULE":S
  22. 190  PRINT D$;"BLOAD SMALL WORLD.PIC.PAC": POKE 0,5: POKE 1,97: PRINT D$"BLOADPACK/UNPACK": CALL 24576
  23. 200  POKE  -16304,0: POKE  -16297,0: HOME 
  24. 210  FOR I = 0 TO 3: VTAB 21 +I: HTAB 15: INVERSE : PRINT " ";: NORMAL : PRINT "          ";: INVERSE : PRINT " ";: NORMAL : NEXT 
  25. 220  IF A$ = "A"  THEN  GOTO 270
  26. 230  VTAB 21: HTAB 1: PRINT "By:": PRINT " William Miska"
  27. 240  VTAB 21: HTAB 27: PRINT "Music made by:";: HTAB 27: PRINT " Music Maker"
  28. 250  HTAB 27: PRINT " By SubLogic"
  29. 260  GOTO 300
  30. 270  VTAB 21: HTAB 1: PRINT "BY:": PRINT " WILLIAM MISKA"
  31. 280  VTAB 21: HTAB 27: PRINT "MUSIC MADE BY:";: HTAB 27: PRINT " MUSIC MAKER"
  32. 290  HTAB 27: PRINT " BY SUBLOGIC"
  33. 300  POKE 33,10: POKE 32,15: POKE  -16368,0
  34. 310  REM MUSIC/WORDS
  35. 320  VTAB 24
  36. 330  FOR I = 1 TO 110
  37. 335  IF I = 86  THEN  PRINT  LEFT$(W$(I,A$ = "A"),4);: GOTO 360
  38. 340  IF  RIGHT$(W$(I,A$ = "A"),1) = "*"  THEN  PRINT : VTAB 23: PRINT  LEFT$(W$(I,A$ = "A"), LEN(W$(I,A$ = "A")) -1);: GOTO 360
  39. 350  PRINT W$(I,A$ = "A")
  40. 360 X =  USR( -1)
  41. 370  IF  PEEK( -16384) >127  THEN  POKE  -16368,0: TEXT : HOME : PRINT : PRINT : PRINT  CHR$(4)"RUNHELLO"
  42. 380  NEXT I
  43. 390  FOR D = 1 TO 4: PRINT : FOR X = 1 TO 500: NEXT X,D: GOTO 330